home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / utils / splitit.arc / splitit.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-06  |  12.9 KB  |  667 lines
  1. #include    <aes.h>
  2. #include    <stdio.h>
  3. #include    <tos.h>
  4. #include    <ctype.h>
  5. #include    <string.h>
  6. #include    <stdlib.h>
  7. #include    <strins.c>
  8.  
  9. #include    "splitit.h"
  10. extern    int            rs_trloc[];
  11. extern    OBJECT        *rs_trindex[];
  12. extern    void        fix_objects(void);
  13. extern    char        p_to_nul[];
  14. extern    TEDINFO        rs_tedinfo[];
  15. extern    ICONBLK        rs_iconblk[];
  16. extern    int            bbk000[];
  17. extern    BITBLK        rs_bitblk[];
  18. extern    OBJECT        rs_object[];
  19.  
  20. #define    SHOW    1
  21. #define HIDE    0
  22. #define TRUE    1
  23. #define FALSE    0
  24. #define READ    0
  25. #define WRITE    1
  26. /**************************************
  27.     Message to user in (c)
  28. ***************************************/
  29. void mess(char *c)
  30.     {
  31.     char     a[40];
  32.     
  33.     graf_mouse(ARROW,0);
  34.     strcpy(a,"[3][");
  35.     strcat(a,c);
  36.     strcat(a,"][OK]");
  37.     form_alert(1,a);
  38.     graf_mouse(POINT_HAND,0);
  39.     }
  40.  
  41. int    mess2(
  42.     char    *c1,    /*    Line one of message    */
  43.     char    *c2,    /*  Line two            */
  44.     char    *b1,    /*  Button one text        */
  45.     char    *b2,    /*    Button two text        */
  46.     int        db    )    /*    Default Button #    */
  47.     {
  48.     char     a[80];
  49.     
  50.     graf_mouse(ARROW,0);
  51.     strcpy(a,"[2][");
  52.     strcat(a,c1);
  53.     strcat(a,"|");
  54.     strcat(a,c2);
  55.     strcat(a,"][");
  56.     strcat(a,b1);
  57.     strcat(a,"|");
  58.     strcat(a,b2);
  59.     strcat(a,"]");
  60.     db = form_alert(db+1,a) - 1;
  61.     graf_mouse(POINT_HAND,0);
  62.     return(db);
  63.     }
  64.  
  65.  
  66. void messi(int    i)
  67.     {
  68.     char    m[16];
  69.     sprintf(m,"%d",i);
  70.     mess(m);
  71.     }
  72.  
  73. void messl(long    l)
  74.     {
  75.     char    m[16];
  76.     sprintf(m,"%ld",l);
  77.     mess(m);
  78.     }
  79.  
  80. /*******************************
  81.     GEM Related Functions
  82. *******************************/
  83.     
  84. /***********************************
  85.     Will put dialog box on screen
  86.     and return exit object after
  87.     erasing it.
  88. ***********************************/
  89. void erase_dialog(
  90.     int    x,
  91.     int    y,
  92.     int    w,
  93.     int    h    )
  94.     {
  95.     int sx,sy;
  96.     sx=x+(w/2);
  97.     sy=y+(h/2);
  98.     form_dial(FMD_SHRINK,sx,sy,0,0,x,y,w,h);
  99.     form_dial(FMD_FINISH,sx,sy,0,0,x,y,w,h);
  100.     }
  101.  
  102. #define DDRC    0
  103. #define DDRN    1
  104. #define DDRS    2
  105. #define DDRW    4
  106. #define DDRE    8
  107. void draw_dialog(
  108.     int        box_ind,
  109.     int        *x,
  110.     int        *y,
  111.     int        *w,
  112.     int        *h,
  113.     int        place,    /* 1-N,2-S,4-W,8-E,15-C,5-NW,6-SW,9-NE,10-SE */
  114.     char    draw    )
  115.     {
  116.     int        sx,sy;
  117.     
  118.     form_center(rs_trindex[box_ind],x,y,w,h);
  119.     *x += (160*(((place & DDRE)/DDRE)-((place & DDRW)/DDRW)));
  120.     *y += (100*(((place & DDRS)/DDRS)-((place & DDRN)/DDRN)));
  121.     sx=*x+(*w/2);
  122.     sy=*y+(*h/2);
  123.  
  124.     form_dial(FMD_START,sx,sy,0,0,*x,*y,*w,*h); 
  125.     form_dial(FMD_GROW,sx,sy,0,0,*x,*y,*w,*h);
  126.     if (draw) objc_draw(rs_trindex[box_ind],0,10,*x,*y,*w,*h);
  127.     }
  128.     
  129. void dial_draw(
  130.     int box_ind,
  131.     int    obj    )
  132.     {
  133.     int        x1,y1;
  134.     OBJECT    *redraw;
  135.  
  136.     redraw = &rs_object[rs_trloc[box_ind]+obj];
  137.     objc_offset(rs_trindex[box_ind],obj,&x1,&y1);
  138.     objc_draw(rs_trindex[box_ind],0,10,x1,y1,redraw->ob_width,redraw->ob_height);
  139.     }
  140.  
  141. int    exit_dialog(
  142.     int box_ind,
  143.     int    x,
  144.     int    y,
  145.     int    w,
  146.     int    h,
  147.     int    draw    )
  148.     {
  149.     int     e;
  150.     
  151.     if (draw) objc_draw(rs_trindex[box_ind],0,10,x,y,w,h);
  152.     e = form_do(rs_trindex[box_ind],0);
  153.     rs_object[rs_trloc[box_ind]+e].ob_state &= UNSELECT;
  154.     dial_draw(box_ind,e);
  155.     return(e);
  156.     }
  157.  
  158. void redraw_dialog(
  159.     int    box_ind,
  160.     int    x,
  161.     int    y,
  162.     int    w,
  163.     int    h    )
  164.     {
  165.     objc_draw(rs_trindex[box_ind],0,10,x,y,w,h);
  166.     }
  167.  
  168. void dial2_draw(
  169.     int box_ind,
  170.     int    obj1,
  171.     int    obj2    )
  172.     {
  173.     int        x1,y1;
  174.     int        x2,y2;
  175.     int        w,h;
  176.     OBJECT    *redraw1,*redraw2;
  177.     
  178.     redraw1 = &rs_object[rs_trloc[box_ind]+obj1];
  179.     redraw2 = &rs_object[rs_trloc[box_ind]+obj2];
  180.     objc_offset(rs_trindex[box_ind],obj1,&x1,&y1);
  181.     objc_offset(rs_trindex[box_ind],obj2,&x2,&y2);
  182.     w = x2-x1+redraw2->ob_width;
  183.     h = y2-y1+redraw2->ob_height;
  184.     if (w < redraw1->ob_width)    w = redraw1->ob_width;
  185.     if (h < redraw1->ob_height)    h = redraw1->ob_height;
  186.     objc_draw(rs_trindex[box_ind],0,10,x1,y1,w,h);
  187.     }
  188.  
  189. /*******************************
  190.     Select a file
  191. *******************************/
  192. int fileselect(
  193.     char     *s,
  194.     char    *ext    )
  195.     {
  196.     char    p[64];
  197.     int        n;
  198.     int        drv;
  199.  
  200.     drv = Dgetdrv();
  201.     Dgetpath(p,0);
  202.     if (p[0] != '\\')    strinc(p,0,'\\');
  203.     strins(p,0,"A:");
  204.     while (drv > 0)
  205.         {
  206.         --drv;
  207.         ++p[0];
  208.         }
  209.     if (p[strlen(p)-1] != '\\')    strcat(p,"\\");
  210.     strcat(p,ext);
  211.     graf_mouse(ARROW,0);
  212.     fsel_input(p,s,&n);
  213.     graf_mouse(POINT_HAND,0);
  214.     if (strrchr(p,'\\') != strchr(p,'\\'))
  215.         *(strrchr(p,'\\')) = 0x0;
  216.     else
  217.         *(strrchr(p,'\\')+1) = 0x0;
  218.     while (*p > 'A')
  219.         {
  220.         --p[0];
  221.         ++drv;
  222.         }
  223.     Dsetdrv(drv);
  224.     Dsetpath(p+2);
  225.     return(n);
  226.     }
  227.  
  228. /**************************
  229.     Create buffer of
  230.     size bytes or a fraction
  231.     thereof
  232. **************************/
  233. void *mport(
  234.     unsigned long    wanted,
  235.     unsigned long    *received
  236.     )
  237.     {
  238.     void    *buf;
  239.     *received = wanted;
  240.     while ((buf = malloc(*received))==NULL)
  241.         *received /= 2;
  242.     return(buf);
  243.     }
  244.  
  245. /**************************
  246.     Show file and length
  247.     in COPY dialog
  248. **************************/
  249. void dial_file(
  250.     char    *name,
  251.     long    length,
  252.     int        x,
  253.     int        y,
  254.     int        w,
  255.     int        h
  256.     )
  257.     {
  258.     strncpy((char *)rs_object[rs_trloc[FILEDIAL]+FILENAME].ob_spec,name,16);
  259.     sprintf((char *)rs_object[rs_trloc[FILEDIAL]+FILESIZE].ob_spec,"%ld\0",length);
  260.     redraw_dialog(FILEDIAL,x,y,w,h);
  261.     }
  262.  
  263. /**************************
  264.     Input K size to split
  265.     file into
  266. **************************/
  267. unsigned long dialk(void)
  268.     {
  269.     int    x,y,w,h;
  270.     int    k=0;
  271.     
  272.     draw_dialog(SIZEDIAL,&x,&y,&w,&h,DDRC,HIDE);
  273.     while (k==0)
  274.         {
  275.         exit_dialog(SIZEDIAL,x,y,w,h,SHOW);
  276.         k = atoi(((TEDINFO *)(rs_object[rs_trloc[SIZEDIAL]+SIZEEXIT].ob_spec))->te_ptext);
  277.         }
  278.     erase_dialog(x,y,w,h);
  279.     return((unsigned long)k);
  280.     }
  281.  
  282. /***************************
  283.     Open a new file
  284. ***************************/
  285. int create(char *name)
  286.     {
  287.     if (Fsfirst(name,7)>=0)
  288.         {
  289.         Fgetdta();
  290.         if (mess2("Overwrite file?",name,"Nay","Yeah",1))
  291.             Fdelete(name);
  292.         else
  293.             return(0);
  294.         }
  295.     Fclose(Fcreate(name,0));
  296.     return(1);
  297.     }
  298.  
  299. /**************************
  300.     Split file
  301. **************************/
  302. void split(void)
  303.     {
  304.     static char     *name = "FILENAME.EXT";
  305.     static char     *ext  = "*.*\0        ";
  306.     DTA                *dta;
  307.     int                x,y,w,h,fd,fds;
  308.     int                p,drv;
  309.     char            filename[16];
  310.     unsigned long    size,bsize,i,j,k,iold;
  311.     char            sifile[16],path[64];
  312.     void            *buf;
  313.  
  314.     i = 0;
  315.     if (fileselect(name,ext))
  316.         if (Fsfirst(name,7)>=0)
  317.             {
  318.             dta = Fgetdta();
  319.             size = dta->filesize;
  320.             strcpy(filename,dta->filename);
  321.             k = dialk();
  322.             drv = Dgetdrv();
  323.             Dgetpath(path,0);
  324.             if (path[0] != '\\')
  325.                 strinc(path,0,'\\');
  326.             fds=Fopen(filename,READ);
  327.             mess("Select destination path");
  328.             fileselect(name,ext);
  329.             draw_dialog(FILEDIAL,&x,&y,&w,&h,DDRC,HIDE);
  330.             dial_file(filename,size,x,y,w,h);
  331.             buf = mport(k*1024L,&bsize);
  332.             sprintf(sifile,"SI_");
  333.             for (p=3;(p<9)&&(filename[p-3]!='.')&&(filename[p-3]!='\0');p++)
  334.                 sifile[p] = filename[p-3];
  335.             for (j=0;j<((size/(k*1024L))+1);j++)
  336.                 {
  337.                 sprintf(sifile+p-1,".%3ld\0",j);
  338.                 if (j<100)
  339.                     {
  340.                     *(sifile+p)='0';
  341.                     if (j<10)
  342.                         *(sifile+p+1)='0';
  343.                     }
  344.                 if ((i+(k*1024))>size)
  345.                     dial_file(sifile,size-i,x,y,w,h);
  346.                 else
  347.                     dial_file(sifile,1024L * k,x,y,w,h);
  348.                 fd=Fcreate(sifile,0);
  349.                 Fclose(fd);
  350.                 fd=Fopen(sifile,WRITE);
  351.                 if (j==0)
  352.                     Fwrite(fd,16,filename);
  353.                 iold = i;
  354.                 while (i < (iold+(k*1024)))
  355.                     {
  356.                     if ((i+bsize)>size)
  357.                         {
  358.                         Fread(fds,size-i,buf);
  359.                         Fwrite(fd,size-i,buf);
  360.                         }
  361.                     else
  362.                         {
  363.                         Fread(fds,bsize,buf);
  364.                         Fwrite(fd,bsize,buf);
  365.                         }
  366.                     i += bsize;
  367.                     }
  368.                 Fclose(fd);
  369.                 }
  370.             Fclose(fds);
  371.             Dsetdrv(drv);
  372.             Dsetpath(path);
  373.             if (mess2("Erase original",filename,"Nay","Yeah",1))
  374.                 Fdelete(filename);
  375.             erase_dialog(x,y,w,h);
  376.             free(buf);
  377.             }
  378.     }
  379.  
  380. /**************************
  381.     Join files
  382. **************************/
  383. void join(void)
  384.     {
  385.     static char *name = "FILENAME.EXT";
  386.     static char *ext  = "SI_?????.000";
  387.     DTA            *dta;
  388.     int            x,y,w,h,fd,fds;
  389.     int            j;
  390.     char        filename[16];
  391.     long        size;
  392.     char        sifile[16];
  393.     char        *p;
  394.     void        *buf;
  395.     char        spath[64],dpath[64];
  396.     int            sdrv,ddrv;
  397.     int            dflag;
  398.     
  399.     if (fileselect(name,ext))
  400.         {
  401.         sdrv = Dgetdrv();
  402.         Dgetpath(spath,0);
  403.         if (spath[0] != '\\')
  404.             strinc(spath,0,'\\');
  405.         draw_dialog(FILEDIAL,&x,&y,&w,&h,DDRC,HIDE);
  406.         strcpy(sifile,name);
  407.         mess("Select destination path");
  408.         if (fileselect(name,ext))
  409.             {
  410.             ddrv = Dgetdrv();
  411.             Dgetpath(dpath,0);
  412.             if (dpath[0] != '\\')
  413.                 strinc(dpath,0,'\\');
  414.             p = strchr(sifile,'.');
  415.             dflag = mess2("Delete pieces as","they are used?","Nay","Yeah",1);
  416.             for (j=0;;j++)
  417.                 {
  418.                 sprintf(p,".%3d\0",j);
  419.                 if (j<100)
  420.                     {
  421.                     *(p+1)='0';
  422.                     if (j<10)
  423.                         *(p+2)='0';
  424.                     }
  425.                 Dsetdrv(sdrv);
  426.                 Dsetpath(spath);
  427.                 if (Fsfirst(sifile,7)>=0)
  428.                     {
  429.                     dta = Fgetdta();
  430.                     size = dta->filesize;
  431.                     buf = malloc(size);
  432.                     dial_file(sifile,size,x,y,w,h);
  433.                     Dsetdrv(sdrv);
  434.                     Dsetpath(spath);
  435.                     fds=Fopen(sifile,READ);
  436.                     Dsetdrv(ddrv);
  437.                     Dsetpath(dpath);
  438.                     if (j==0)
  439.                         {
  440.                         Fread(fds,16,filename);
  441.                         if (!create(filename))
  442.                             {
  443.                             erase_dialog(x,y,w,h);
  444.                             return;
  445.                             }
  446.                         }
  447.                     fd=Fopen(filename,WRITE);
  448.                     Fseek(0,fd,2);
  449.                     if (j == 0)
  450.                         {
  451.                         Fread(fds,size-16,buf);
  452.                         Fwrite(fd,size-16,(char *)buf);
  453.                         }
  454.                     else
  455.                         {
  456.                         Fread(fds,size,buf);
  457.                         Fwrite(fd,size,buf);
  458.                         }
  459.                     Fclose(fd);
  460.                     Fclose(fds);
  461.                     free(buf);
  462.                     if (dflag)
  463.                         {
  464.                         Dsetdrv(sdrv);
  465.                         Dsetpath(spath);
  466.                         Fdelete(sifile);
  467.                         }
  468.                     }
  469.                 else
  470.                     {
  471.                     erase_dialog(x,y,w,h);
  472.                     return;
  473.                     }
  474.                 }
  475.             }
  476.             erase_dialog(x,y,w,h);
  477.         }
  478.     }
  479.  
  480. /*************************
  481.     BINC: convert binary
  482.     to C source code
  483. **************************/
  484. void binc(void)
  485.     {
  486.     static char        *sname = "FILENAME.EXT";
  487.     static char        dname[16];
  488.     static char        *ext = "*.*\0       ";
  489.     static char        *dext = "*.C\0         ";
  490.     char            path[64];
  491.     int                drv,fd,fds,i,j;
  492.     int                buf[6],x,y,w,h;
  493.     char            *line = " 0x1234,0x1234,0x1234,0x1234,0x1234,0x1234 /* 00000 ABCDEFGHIJKL */\015\012";
  494.     DTA                *dta;
  495.     unsigned long    size,ds,ls,count;
  496.     char            *cbuf;
  497.  
  498.     line[0] = '\011';
  499.     cbuf = (char *)buf;
  500.     ls = strlen(line);
  501.     if (fileselect(sname,ext))
  502.         {
  503.         drv = Dgetdrv();
  504.         Dgetpath(path,0);
  505.         if (path[0] != '\\')
  506.             strinc(path,0,'\\');
  507.         strcpy(dname,sname);
  508.         *(strchr(dname,'.')+1)='C';
  509.         *(strchr(dname,'.')+2)='\0';
  510.         mess("Select destination path");
  511.         if (fileselect(dname,dext))
  512.             if (create(dname))
  513.                 {
  514.                 fd = Fopen(dname,WRITE);
  515.                 Dsetdrv(drv);
  516.                 Dsetpath(path);
  517.                 if (Fsfirst(sname,7)>=0)
  518.                     {
  519.                     dta = Fgetdta();
  520.                     size = dta->filesize;
  521.                     draw_dialog(FILEDIAL,&x,&y,&w,&h,DDRC,HIDE);
  522.                     dial_file(sname,size,x,y,w,h);
  523.                     fds = Fopen(sname,READ);
  524.                     *strchr(sname,'.') = '\0';
  525.                     ds = 12 + strlen(sname);
  526.                     Fwrite(fd,4,"int ");
  527.                     Fwrite(fd,strlen(sname),sname);
  528.                     Fwrite(fd,8,"[] = {\015\012");
  529.                     dial_file(dname,ds,x,y,w,h);
  530.                     count = 0;
  531.                     while (size != 0)
  532.                         {
  533.                         if (size<12)
  534.                             {
  535.                             Fread(fds,size,cbuf);
  536.                             j = (unsigned int)(size+1) / 2;
  537.                             size = 0;
  538.                             }
  539.                         else
  540.                             {
  541.                             Fread(fds,12,cbuf);
  542.                             j = 6;
  543.                             size -= 12;
  544.                             }
  545.                         for(i=0;i<j;i++)
  546.                             {
  547.                             sprintf(line+3+i*7,"%4x",buf[i]);
  548.                             if (buf[i]<0x1000)
  549.                                 {
  550.                                 *(line+3+i*7) = '0';
  551.                                 if (buf[i] < 0x100)
  552.                                     {
  553.                                     *(line+4+i*7) = '0';
  554.                                     if (buf[i]<0x10)
  555.                                         *(line+5+i*7)= '0';
  556.                                     }
  557.                                 }
  558.                             *(line+(i+1)*7) = ',';
  559.                             if (isprint(*(cbuf+i*2)))
  560.                                 *(line+52+i*2) = *(cbuf+i*2);
  561.                             else
  562.                                 *(line+52+i*2) = '.';
  563.                             if (isprint(*(cbuf+i*2+1)))
  564.                                 *(line+53+i*2) = *(cbuf+i*2+1);
  565.                             else
  566.                                 *(line+53+i*2) = '.';
  567.                             }
  568.                         for(i=j;i<6;i++)
  569.                             {
  570.                             sprintf(line+i*7,"       ");
  571.                             *(line+(i+1)*7) = ' ';
  572.                             *(line+53+i*2) = ' ';
  573.                             *(line+54+i*2) = ' ';
  574.                             if (*(line-1+i*7) == ',')
  575.                                 *(line-1+i*7) = ' ';
  576.                             }
  577.                         if (size == 0)
  578.                             *(line+42) = ' ';
  579.                         ds += ls;
  580.                         sprintf(line+46,"%5lx",count);
  581.                         *(line+51) = ' ';
  582.                         count += 12;
  583.                         dial_file(dname,ds-12-strlen(sname),x,y,w,h);
  584.                         Fwrite(fd,ls,line);
  585.                         }
  586.                     Fwrite(fd,3,"\011};");
  587.                     ds += 2;
  588.                     dial_file(dname,ds,x,y,w,h);
  589.                     erase_dialog(x,y,w,h);
  590.                     Fclose(fds);
  591.                     }
  592.                 Fclose(fd);
  593.                 }
  594.         }
  595.     }
  596.  
  597. /*************************
  598.     Do help dialog
  599. **************************/
  600. void infohelp(void)
  601.     {
  602.     int    x,y,w,h;
  603.     draw_dialog(HELPDIAL,&x,&y,&w,&h,0,SHOW);
  604.     exit_dialog(HELPDIAL,x,y,w,h,HIDE);
  605.     erase_dialog(x,y,w,h);
  606.     }
  607.  
  608. /****************************
  609.     Do info dialog
  610. ****************************/
  611. void maininfo(void)
  612.     {
  613.     int    x,y,w,h;
  614.     int    selection;
  615.  
  616.     draw_dialog(INFODIAL,&x,&y,&w,&h,DDRN|DDRS|DDRE|DDRW,SHOW);
  617.     selection = exit_dialog(INFODIAL,x,y,w,h,HIDE);
  618.     erase_dialog(x,y,w,h);
  619.     if (selection == INFOHELP)
  620.         infohelp();
  621.     }
  622.     
  623. /*******************************************************************
  624.                             MAIN
  625. *******************************************************************/
  626. main()
  627.     {
  628.     int            msg_buf[8];
  629.  
  630.     /*      INITIALIZE GEM              */
  631.     appl_init();
  632.        fix_objects();
  633.     
  634.     /*      APPLICATION ROUTINES        */
  635.     graf_mouse(POINT_HAND,0);
  636.     maininfo();
  637.     menu_bar(rs_trindex[MAINMENU],SHOW);
  638.     for (;;)
  639.         {
  640.         evnt_mesag(msg_buf);
  641.         if (msg_buf[0] != MN_SELECTED)    continue;
  642.         if (msg_buf[4] == MAINQUIT)        break;
  643.         
  644.         switch (msg_buf[4])
  645.             {
  646.             case MAININFO:
  647.                 maininfo();
  648.                 break;
  649.             case MAINSPLIT:
  650.                 split();
  651.                 break;
  652.             case MAINJOIN:
  653.                 join();
  654.                 break;
  655.             case MAINBINC:
  656.                 binc();
  657.                 break;
  658.             default:
  659.                 break;
  660.             }
  661.             menu_tnormal(rs_trindex[MAINMENU],msg_buf[3],TRUE);
  662.         }
  663.     menu_bar(rs_trindex[MAINMENU],HIDE);
  664.     appl_exit();
  665.     return(0);
  666.      }
  667.